home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / grids.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-09  |  23.9 KB  |  599 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'Grids.pas' rev: 3.00
  6.  
  7. #ifndef GridsHPP
  8. #define GridsHPP
  9. #include <Mask.hpp>
  10. #include <StdCtrls.hpp>
  11. #include <Forms.hpp>
  12. #include <Controls.hpp>
  13. #include <Menus.hpp>
  14. #include <Graphics.hpp>
  15. #include <Classes.hpp>
  16. #include <Windows.hpp>
  17. #include <Messages.hpp>
  18. #include <SysUtils.hpp>
  19. #include <SysInit.hpp>
  20. #include <System.hpp>
  21.  
  22. //-- user supplied -----------------------------------------------------------
  23.  
  24. namespace Grids
  25. {
  26. //-- type declarations -------------------------------------------------------
  27. class DELPHICLASS EInvalidGridOperation;
  28. class PASCALIMPLEMENTATION EInvalidGridOperation : public Sysutils::Exception 
  29. {
  30.     typedef Sysutils::Exception inherited;
  31.     
  32. public:
  33.     /* Exception.Create */ __fastcall EInvalidGridOperation(const System::AnsiString Msg) : Sysutils::Exception(
  34.         Msg) { }
  35.     /* Exception.CreateFmt */ __fastcall EInvalidGridOperation(const System::AnsiString Msg, const System::TVarRec 
  36.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  37.     /* Exception.CreateRes */ __fastcall EInvalidGridOperation(int Ident, Extended Dummy) : Sysutils::Exception(
  38.         Ident, Dummy) { }
  39.     /* Exception.CreateResFmt */ __fastcall EInvalidGridOperation(int Ident, const System::TVarRec * Args
  40.         , const int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  41.     /* Exception.CreateHelp */ __fastcall EInvalidGridOperation(const System::AnsiString Msg, int AHelpContext
  42.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  43.     /* Exception.CreateFmtHelp */ __fastcall EInvalidGridOperation(const System::AnsiString Msg, const 
  44.         System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size
  45.         , AHelpContext) { }
  46.     /* Exception.CreateResHelp */ __fastcall EInvalidGridOperation(int Ident, int AHelpContext) : Sysutils::
  47.         Exception(Ident, AHelpContext) { }
  48.     /* Exception.CreateResFmtHelp */ __fastcall EInvalidGridOperation(int Ident, const System::TVarRec 
  49.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext
  50.         ) { }
  51.     
  52. public:
  53.     /* TObject.Destroy */ __fastcall virtual ~EInvalidGridOperation(void) { }
  54.     
  55. };
  56.  
  57. typedef int __fastcall (__closure *TGetExtentsFunc)(int Index);
  58.  
  59. struct TGridAxisDrawInfo
  60. {
  61.     int EffectiveLineWidth;
  62.     int FixedBoundary;
  63.     int GridBoundary;
  64.     int GridExtent;
  65.     int LastFullVisibleCell;
  66.     int FullVisBoundary;
  67.     int FixedCellCount;
  68.     int FirstGridCell;
  69.     int GridCellCount;
  70.     TGetExtentsFunc GetExtent;
  71. } ;
  72.  
  73. struct TGridDrawInfo
  74. {
  75.     TGridAxisDrawInfo Horz;
  76.     TGridAxisDrawInfo Vert;
  77. } ;
  78.  
  79. enum TGridState { gsNormal, gsSelecting, gsRowSizing, gsColSizing, gsRowMoving, gsColMoving };
  80.  
  81. class DELPHICLASS TInplaceEdit;
  82. class DELPHICLASS TCustomGrid;
  83. struct TGridCoord
  84. {
  85.     int X;
  86.     int Y;
  87. } ;
  88.  
  89. enum TGridOption { goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, 
  90.     goRowSizing, goColSizing, goRowMoving, goColMoving, goEditing, goTabs, goRowSelect, goAlwaysShowEditor, 
  91.     goThumbTracking };
  92.  
  93. typedef Set<TGridOption, goFixedVertLine, goThumbTracking>  TGridOptions;
  94.  
  95. struct TGridRect;
  96. enum Grids__3 { gdSelected, gdFocused, gdFixed };
  97.  
  98. typedef Set<Grids__3, gdSelected, gdFixed>  TGridDrawState;
  99.  
  100. enum Grids__4 { sdLeft, sdRight, sdUp, sdDown };
  101.  
  102. typedef Set<Grids__4, sdLeft, sdDown>  TGridScrollDirection;
  103.  
  104. class PASCALIMPLEMENTATION TCustomGrid : public Controls::TCustomControl 
  105. {
  106.     typedef Controls::TCustomControl inherited;
  107.     
  108. private:
  109.     TGridCoord FAnchor;
  110.     TFormBorderStyle FBorderStyle;
  111.     bool FCanEditModify;
  112.     int FColCount;
  113.     void *FColWidths;
  114.     void *FTabStops;
  115.     TGridCoord FCurrent;
  116.     int FDefaultColWidth;
  117.     int FDefaultRowHeight;
  118.     int FFixedCols;
  119.     int FFixedRows;
  120.     Graphics::TColor FFixedColor;
  121.     int FGridLineWidth;
  122.     TGridOptions FOptions;
  123.     int FRowCount;
  124.     void *FRowHeights;
  125.     TScrollStyle FScrollBars;
  126.     TGridCoord FTopLeft;
  127.     int FSizingIndex;
  128.     int FSizingPos;
  129.     int FSizingOfs;
  130.     int FMoveIndex;
  131.     int FMovePos;
  132.     tagPOINT FHitTest;
  133.     TInplaceEdit* FInplaceEdit;
  134.     int FInplaceCol;
  135.     int FInplaceRow;
  136.     int FColOffset;
  137.     bool FDefaultDrawing;
  138.     bool FEditorMode;
  139.     TGridCoord __fastcall CalcCoordFromPoint(int X, int Y, const TGridDrawInfo &DrawInfo);
  140.     void __fastcall CalcDrawInfo(TGridDrawInfo &DrawInfo);
  141.     void __fastcall CalcDrawInfoXY(TGridDrawInfo &DrawInfo, int UseWidth, int UseHeight);
  142.     void __fastcall CalcFixedInfo(TGridDrawInfo &DrawInfo);
  143.     TGridCoord __fastcall CalcMaxTopLeft(const TGridCoord &Coord, const TGridDrawInfo &DrawInfo);
  144.     void __fastcall CalcSizingState(int X, int Y, TGridState &State, int &Index, int &SizingPos, int &SizingOfs
  145.         , TGridDrawInfo &FixedInfo);
  146.     void __fastcall ChangeSize(int NewColCount, int NewRowCount);
  147.     void __fastcall ClampInView(const TGridCoord &Coord);
  148.     void __fastcall DrawSizingLine(const TGridDrawInfo &DrawInfo);
  149.     void __fastcall DrawMove(void);
  150.     void __fastcall FocusCell(int ACol, int ARow, bool MoveAnchor);
  151.     void __fastcall GridRectToScreenRect(const TGridRect &GridRect, Windows::TRect &ScreenRect, bool IncludeLine
  152.         );
  153.     void __fastcall HideEdit(void);
  154.     void __fastcall Initialize(void);
  155.     void __fastcall InvalidateGrid(void);
  156.     void __fastcall InvalidateRect(const TGridRect &ARect);
  157.     void __fastcall ModifyScrollBar(Cardinal ScrollBar, Cardinal ScrollCode, Cardinal Pos);
  158.     void __fastcall MoveAdjust(int &CellPos, int FromIndex, int ToIndex);
  159.     void __fastcall MoveAnchor(const TGridCoord &NewAnchor);
  160.     void __fastcall MoveAndScroll(int Mouse, int CellHit, TGridDrawInfo &DrawInfo, TGridAxisDrawInfo &Axis
  161.         , int Scrollbar);
  162.     void __fastcall MoveCurrent(int ACol, int ARow, bool MoveAnchor, bool Show);
  163.     void __fastcall MoveTopLeft(int ALeft, int ATop);
  164.     void __fastcall ResizeCol(int Index, int OldSize, int NewSize);
  165.     void __fastcall ResizeRow(int Index, int OldSize, int NewSize);
  166.     void __fastcall SelectionMoved(const TGridRect &OldSel);
  167.     void __fastcall ScrollDataInfo(int DX, int DY, TGridDrawInfo &DrawInfo);
  168.     void __fastcall TopLeftMoved(const TGridCoord &OldTopLeft);
  169.     void __fastcall UpdateScrollPos(void);
  170.     void __fastcall UpdateScrollRange(void);
  171.     int __fastcall GetColWidths(int Index);
  172.     int __fastcall GetRowHeights(int Index);
  173.     TGridRect __fastcall GetSelection(void);
  174.     bool __fastcall GetTabStops(int Index);
  175.     int __fastcall GetVisibleColCount(void);
  176.     int __fastcall GetVisibleRowCount(void);
  177.     bool __fastcall IsActiveControl(void);
  178.     void __fastcall ReadColWidths(Classes::TReader* Reader);
  179.     void __fastcall ReadRowHeights(Classes::TReader* Reader);
  180.     void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
  181.     void __fastcall SetCol(int Value);
  182.     void __fastcall SetColCount(int Value);
  183.     void __fastcall SetColWidths(int Index, int Value);
  184.     void __fastcall SetDefaultColWidth(int Value);
  185.     void __fastcall SetDefaultRowHeight(int Value);
  186.     void __fastcall SetEditorMode(bool Value);
  187.     void __fastcall SetFixedColor(Graphics::TColor Value);
  188.     void __fastcall SetFixedCols(int Value);
  189.     void __fastcall SetFixedRows(int Value);
  190.     void __fastcall SetGridLineWidth(int Value);
  191.     void __fastcall SetLeftCol(int Value);
  192.     void __fastcall SetOptions(TGridOptions Value);
  193.     void __fastcall SetRow(int Value);
  194.     void __fastcall SetRowCount(int Value);
  195.     void __fastcall SetRowHeights(int Index, int Value);
  196.     void __fastcall SetScrollBars(Stdctrls::TScrollStyle Value);
  197.     void __fastcall SetSelection(const TGridRect &Value);
  198.     void __fastcall SetTabStops(int Index, bool Value);
  199.     void __fastcall SetTopRow(int Value);
  200.     void __fastcall UpdateEdit(void);
  201.     void __fastcall UpdateText(void);
  202.     void __fastcall WriteColWidths(Classes::TWriter* Writer);
  203.     void __fastcall WriteRowHeights(Classes::TWriter* Writer);
  204.     MESSAGE void __fastcall CMCancelMode(Messages::TMessage &Msg);
  205.     HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  206.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  207.     HIDESBASE MESSAGE void __fastcall CMDesignHitTest(Messages::TWMMouse &Msg);
  208.     MESSAGE void __fastcall CMWantSpecialKey(Messages::TWMKey &Msg);
  209.     HIDESBASE MESSAGE void __fastcall WMChar(Messages::TWMKey &Msg);
  210.     HIDESBASE MESSAGE void __fastcall WMCommand(Messages::TWMCommand &Message);
  211.     MESSAGE void __fastcall WMGetDlgCode(Messages::TWMNoParams &Msg);
  212.     HIDESBASE MESSAGE void __fastcall WMHScroll(Messages::TWMScroll &Msg);
  213.     HIDESBASE MESSAGE void __fastcall WMKillFocus(Messages::TWMKillFocus &Msg);
  214.     HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TMessage &Message);
  215.     HIDESBASE MESSAGE void __fastcall WMNCHitTest(Messages::TWMNCHitTest &Msg);
  216.     HIDESBASE MESSAGE void __fastcall WMSetCursor(Messages::TWMSetCursor &Msg);
  217.     HIDESBASE MESSAGE void __fastcall WMSetFocus(Messages::TWMSetFocus &Msg);
  218.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Msg);
  219.     MESSAGE void __fastcall WMTimer(Messages::TWMTimer &Msg);
  220.     HIDESBASE MESSAGE void __fastcall WMVScroll(Messages::TWMScroll &Msg);
  221.     
  222. protected:
  223.     TGridState FGridState;
  224.     bool FSaveCellExtents;
  225.     TGridOptions DesignOptionsBoost;
  226.     bool VirtualView;
  227.     virtual TInplaceEdit* __fastcall CreateEditor(void);
  228.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  229.     DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
  230.     DYNAMIC void __fastcall KeyPress(char &Key);
  231.     DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, 
  232.         int Y);
  233.     DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
  234.     DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int 
  235.         Y);
  236.     DYNAMIC void __fastcall AdjustSize(int Index, int Amount, bool Rows);
  237.     Windows::TRect __fastcall BoxRect(int ALeft, int ATop, int ARight, int ABottom);
  238.     DYNAMIC void __fastcall DoExit(void);
  239.     Windows::TRect __fastcall CellRect(int ACol, int ARow);
  240.     DYNAMIC bool __fastcall CanEditAcceptKey(char Key);
  241.     DYNAMIC bool __fastcall CanGridAcceptKey(Word Key, Classes::TShiftState Shift);
  242.     DYNAMIC bool __fastcall CanEditModify(void);
  243.     virtual bool __fastcall CanEditShow(void);
  244.     DYNAMIC System::AnsiString __fastcall GetEditText(int ACol, int ARow);
  245.     DYNAMIC void __fastcall SetEditText(int ACol, int ARow, const System::AnsiString Value);
  246.     DYNAMIC System::AnsiString __fastcall GetEditMask(int ACol, int ARow);
  247.     DYNAMIC int __fastcall GetEditLimit(void);
  248.     int __fastcall GetGridWidth(void);
  249.     int __fastcall GetGridHeight(void);
  250.     void __fastcall HideEditor(void);
  251.     void __fastcall ShowEditor(void);
  252.     void __fastcall ShowEditorChar(char Ch);
  253.     void __fastcall InvalidateEditor(void);
  254.     void __fastcall MoveColumn(int FromIndex, int ToIndex);
  255.     DYNAMIC void __fastcall ColumnMoved(int FromIndex, int ToIndex);
  256.     void __fastcall MoveRow(int FromIndex, int ToIndex);
  257.     DYNAMIC void __fastcall RowMoved(int FromIndex, int ToIndex);
  258.     virtual void __fastcall DrawCell(int ACol, int ARow, const Windows::TRect &ARect, TGridDrawState AState
  259.         ) = 0;
  260.     virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
  261.     void __fastcall MoveColRow(int ACol, int ARow, bool MoveAnchor, bool Show);
  262.     virtual bool __fastcall SelectCell(int ACol, int ARow);
  263.     DYNAMIC void __fastcall SizeChanged(int OldColCount, int OldRowCount);
  264.     bool __fastcall Sizing(int X, int Y);
  265.     void __fastcall ScrollData(int DX, int DY);
  266.     void __fastcall InvalidateCell(int ACol, int ARow);
  267.     void __fastcall InvalidateCol(int ACol);
  268.     void __fastcall InvalidateRow(int ARow);
  269.     DYNAMIC void __fastcall TopLeftChanged(void);
  270.     DYNAMIC void __fastcall TimedScroll(TGridScrollDirection Direction);
  271.     virtual void __fastcall Paint(void);
  272.     DYNAMIC void __fastcall ColWidthsChanged(void);
  273.     DYNAMIC void __fastcall RowHeightsChanged(void);
  274.     void __fastcall DeleteColumn(int ACol);
  275.     void __fastcall DeleteRow(int ARow);
  276.     void __fastcall UpdateDesigner(void);
  277.     __property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=1};
  278.     __property int Col = {read=FCurrent.X, write=SetCol, nodefault};
  279.     __property Color ;
  280.     __property int ColCount = {read=FColCount, write=SetColCount, default=5};
  281.     __property int ColWidths[int Index] = {read=GetColWidths, write=SetColWidths};
  282.     __property int DefaultColWidth = {read=FDefaultColWidth, write=SetDefaultColWidth, default=64};
  283.     __property bool DefaultDrawing = {read=FDefaultDrawing, write=FDefaultDrawing, default=1};
  284.     __property int DefaultRowHeight = {read=FDefaultRowHeight, write=SetDefaultRowHeight, default=24};
  285.     __property bool EditorMode = {read=FEditorMode, write=SetEditorMode, nodefault};
  286.     __property Graphics::TColor FixedColor = {read=FFixedColor, write=SetFixedColor, default=-2147483633
  287.         };
  288.     __property int FixedCols = {read=FFixedCols, write=SetFixedCols, default=1};
  289.     __property int FixedRows = {read=FFixedRows, write=SetFixedRows, default=1};
  290.     __property int GridHeight = {read=GetGridHeight, nodefault};
  291.     __property int GridLineWidth = {read=FGridLineWidth, write=SetGridLineWidth, default=1};
  292.     __property int GridWidth = {read=GetGridWidth, nodefault};
  293.     __property tagPOINT HitTest = {read=FHitTest};
  294.     __property TInplaceEdit* InplaceEditor = {read=FInplaceEdit};
  295.     __property int LeftCol = {read=FTopLeft.X, write=SetLeftCol, nodefault};
  296.     __property TGridOptions Options = {read=FOptions, write=SetOptions, default=31};
  297.     __property ParentColor ;
  298.     __property int Row = {read=FCurrent.Y, write=SetRow, nodefault};
  299.     __property int RowCount = {read=FRowCount, write=SetRowCount, default=5};
  300.     __property int RowHeights[int Index] = {read=GetRowHeights, write=SetRowHeights};
  301.     __property Stdctrls::TScrollStyle ScrollBars = {read=FScrollBars, write=SetScrollBars, default=3};
  302.     __property TGridRect Selection = {read=GetSelection, write=SetSelection};
  303.     __property bool TabStops[int Index] = {read=GetTabStops, write=SetTabStops};
  304.     __property int TopRow = {read=FTopLeft.Y, write=SetTopRow, nodefault};
  305.     __property int VisibleColCount = {read=GetVisibleColCount, nodefault};
  306.     __property int VisibleRowCount = {read=GetVisibleRowCount, nodefault};
  307.     
  308. public:
  309.     __fastcall virtual TCustomGrid(Classes::TComponent* AOwner);
  310.     __fastcall virtual ~TCustomGrid(void);
  311.     TGridCoord __fastcall MouseCoord(int X, int Y);
  312.     
  313. __published:
  314.     __property TabStop ;
  315. public:
  316.     /* TWinControl.CreateParented */ __fastcall TCustomGrid(HWND ParentWindow) : Controls::TCustomControl(
  317.         ParentWindow) { }
  318.     
  319. };
  320.  
  321. class PASCALIMPLEMENTATION TInplaceEdit : public Mask::TCustomMaskEdit 
  322. {
  323.     typedef Mask::TCustomMaskEdit inherited;
  324.     
  325. private:
  326.     TCustomGrid* FGrid;
  327.     int FClickTime;
  328.     void __fastcall InternalMove(const Windows::TRect &Loc, bool Redraw);
  329.     void __fastcall SetGrid(TCustomGrid* Value);
  330.     HIDESBASE MESSAGE void __fastcall CMShowingChanged(Messages::TMessage &Message);
  331.     MESSAGE void __fastcall WMGetDlgCode(Messages::TWMNoParams &Message);
  332.     HIDESBASE MESSAGE void __fastcall WMPaste(void *Message);
  333.     HIDESBASE MESSAGE void __fastcall WMCut(void *Message);
  334.     MESSAGE void __fastcall WMClear(void *Message);
  335.     
  336. protected:
  337.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  338.     DYNAMIC void __fastcall DblClick(void);
  339.     virtual bool __fastcall EditCanModify(void);
  340.     DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
  341.     DYNAMIC void __fastcall KeyPress(char &Key);
  342.     DYNAMIC void __fastcall KeyUp(Word &Key, Classes::TShiftState Shift);
  343.     virtual void __fastcall BoundsChanged(void);
  344.     virtual void __fastcall UpdateContents(void);
  345.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  346.     __property TCustomGrid* Grid = {read=FGrid};
  347.     
  348. public:
  349.     __fastcall virtual TInplaceEdit(Classes::TComponent* AOwner);
  350.     void __fastcall Deselect(void);
  351.     HIDESBASE void __fastcall Hide(void);
  352.     HIDESBASE void __fastcall Invalidate(void);
  353.     void __fastcall Move(const Windows::TRect &Loc);
  354.     bool __fastcall PosEqual(const Windows::TRect &Rect);
  355.     HIDESBASE void __fastcall SetFocus(void);
  356.     void __fastcall UpdateLoc(const Windows::TRect &Loc);
  357.     HIDESBASE bool __fastcall Visible(void);
  358. public:
  359.     /* TWinControl.CreateParented */ __fastcall TInplaceEdit(HWND ParentWindow) : Mask::TCustomMaskEdit(
  360.         ParentWindow) { }
  361.     /* TWinControl.Destroy */ __fastcall virtual ~TInplaceEdit(void) { }
  362.     
  363. };
  364.  
  365. struct TGridRect
  366. {
  367.     
  368.     union
  369.     {
  370.         struct 
  371.         {
  372.             TGridCoord TopLeft;
  373.             TGridCoord BottomRight;
  374.             
  375.         };
  376.         struct 
  377.         {
  378.             int Left;
  379.             int Top;
  380.             int Right;
  381.             int Bottom;
  382.             
  383.         };
  384.         
  385.     };
  386. } ;
  387.  
  388. typedef void __fastcall (__closure *TSelectCellEvent)(System::TObject* Sender, int Col, int Row, bool 
  389.     &CanSelect);
  390.  
  391. typedef void __fastcall (__closure *TDrawCellEvent)(System::TObject* Sender, int Col, int Row, const 
  392.     Windows::TRect &Rect, TGridDrawState State);
  393.  
  394. typedef void __fastcall (__closure *TGetEditEvent)(System::TObject* Sender, int ACol, int ARow, System::AnsiString 
  395.     &Value);
  396.  
  397. typedef void __fastcall (__closure *TSetEditEvent)(System::TObject* Sender, int ACol, int ARow, const 
  398.     System::AnsiString Value);
  399.  
  400. typedef void __fastcall (__closure *TMovedEvent)(System::TObject* Sender, int FromIndex, int ToIndex
  401.     );
  402.  
  403. class DELPHICLASS TDrawGrid;
  404. class PASCALIMPLEMENTATION TDrawGrid : public Grids::TCustomGrid 
  405. {
  406.     typedef Grids::TCustomGrid inherited;
  407.     
  408. private:
  409.     TMovedEvent FOnColumnMoved;
  410.     TDrawCellEvent FOnDrawCell;
  411.     TGetEditEvent FOnGetEditMask;
  412.     TGetEditEvent FOnGetEditText;
  413.     TMovedEvent FOnRowMoved;
  414.     TSelectCellEvent FOnSelectCell;
  415.     TSetEditEvent FOnSetEditText;
  416.     Classes::TNotifyEvent FOnTopLeftChanged;
  417.     
  418. protected:
  419.     DYNAMIC void __fastcall ColumnMoved(int FromIndex, int ToIndex);
  420.     virtual void __fastcall DrawCell(int ACol, int ARow, const Windows::TRect &ARect, TGridDrawState AState
  421.         );
  422.     DYNAMIC System::AnsiString __fastcall GetEditMask(int ACol, int ARow);
  423.     DYNAMIC System::AnsiString __fastcall GetEditText(int ACol, int ARow);
  424.     DYNAMIC void __fastcall RowMoved(int FromIndex, int ToIndex);
  425.     virtual bool __fastcall SelectCell(int ACol, int ARow);
  426.     DYNAMIC void __fastcall SetEditText(int ACol, int ARow, const System::AnsiString Value);
  427.     DYNAMIC void __fastcall TopLeftChanged(void);
  428.     
  429. public:
  430.     HIDESBASE Windows::TRect __fastcall CellRect(int ACol, int ARow);
  431.     void __fastcall MouseToCell(int X, int Y, int &ACol, int &ARow);
  432.     __property Canvas ;
  433.     __property Col ;
  434.     __property ColWidths ;
  435.     __property EditorMode ;
  436.     __property GridHeight ;
  437.     __property GridWidth ;
  438.     __property LeftCol ;
  439.     __property Selection ;
  440.     __property Row ;
  441.     __property RowHeights ;
  442.     __property TabStops ;
  443.     __property TopRow ;
  444.     
  445. __published:
  446.     __property Align ;
  447.     __property BorderStyle ;
  448.     __property Color ;
  449.     __property ColCount ;
  450.     __property Ctl3D ;
  451.     __property DefaultColWidth ;
  452.     __property DefaultRowHeight ;
  453.     __property DefaultDrawing ;
  454.     __property DragCursor ;
  455.     __property DragMode ;
  456.     __property Enabled ;
  457.     __property FixedColor ;
  458.     __property FixedCols ;
  459.     __property RowCount ;
  460.     __property FixedRows ;
  461.     __property Font ;
  462.     __property GridLineWidth ;
  463.     __property Options ;
  464.     __property ParentColor ;
  465.     __property ParentCtl3D ;
  466.     __property ParentFont ;
  467.     __property ParentShowHint ;
  468.     __property PopupMenu ;
  469.     __property ScrollBars ;
  470.     __property ShowHint ;
  471.     __property TabOrder ;
  472.     __property TabStop ;
  473.     __property Visible ;
  474.     __property VisibleColCount ;
  475.     __property VisibleRowCount ;
  476.     __property OnClick ;
  477.     __property TMovedEvent OnColumnMoved = {read=FOnColumnMoved, write=FOnColumnMoved};
  478.     __property OnDblClick ;
  479.     __property OnDragDrop ;
  480.     __property OnDragOver ;
  481.     __property TDrawCellEvent OnDrawCell = {read=FOnDrawCell, write=FOnDrawCell};
  482.     __property OnEndDrag ;
  483.     __property OnEnter ;
  484.     __property OnExit ;
  485.     __property TGetEditEvent OnGetEditMask = {read=FOnGetEditMask, write=FOnGetEditMask};
  486.     __property TGetEditEvent OnGetEditText = {read=FOnGetEditText, write=FOnGetEditText};
  487.     __property OnKeyDown ;
  488.     __property OnKeyPress ;
  489.     __property OnKeyUp ;
  490.     __property OnMouseDown ;
  491.     __property OnMouseMove ;
  492.     __property OnMouseUp ;
  493.     __property TMovedEvent OnRowMoved = {read=FOnRowMoved, write=FOnRowMoved};
  494.     __property TSelectCellEvent OnSelectCell = {read=FOnSelectCell, write=FOnSelectCell};
  495.     __property TSetEditEvent OnSetEditText = {read=FOnSetEditText, write=FOnSetEditText};
  496.     __property OnStartDrag ;
  497.     __property Classes::TNotifyEvent OnTopLeftChanged = {read=FOnTopLeftChanged, write=FOnTopLeftChanged
  498.         };
  499. public:
  500.     /* TCustomGrid.Create */ __fastcall virtual TDrawGrid(Classes::TComponent* AOwner) : Grids::TCustomGrid(
  501.         AOwner) { }
  502.     /* TCustomGrid.Destroy */ __fastcall virtual ~TDrawGrid(void) { }
  503.     
  504. public:
  505.     /* TWinControl.CreateParented */ __fastcall TDrawGrid(HWND ParentWindow) : Grids::TCustomGrid(ParentWindow
  506.         ) { }
  507.     
  508. };
  509.  
  510. class DELPHICLASS TStringGridStrings;
  511. class DELPHICLASS TStringGrid;
  512. class PASCALIMPLEMENTATION TStringGrid : public Grids::TDrawGrid 
  513. {
  514.     typedef Grids::TDrawGrid inherited;
  515.     
  516. private:
  517.     void *FData;
  518.     void *FRows;
  519.     void *FCols;
  520.     bool FUpdating;
  521.     bool FNeedsUpdating;
  522.     int FEditUpdate;
  523.     void __fastcall DisableEditUpdate(void);
  524.     void __fastcall EnableEditUpdate(void);
  525.     HIDESBASE void __fastcall Initialize(void);
  526.     HIDESBASE void __fastcall Update(int ACol, int ARow);
  527.     void __fastcall SetUpdateState(bool Updating);
  528.     System::AnsiString __fastcall GetCells(int ACol, int ARow);
  529.     Classes::TStrings* __fastcall GetCols(int Index);
  530.     System::TObject* __fastcall GetObjects(int ACol, int ARow);
  531.     Classes::TStrings* __fastcall GetRows(int Index);
  532.     void __fastcall SetCells(int ACol, int ARow, const System::AnsiString Value);
  533.     void __fastcall SetCols(int Index, Classes::TStrings* Value);
  534.     void __fastcall SetObjects(int ACol, int ARow, System::TObject* Value);
  535.     void __fastcall SetRows(int Index, Classes::TStrings* Value);
  536.     TStringGridStrings* __fastcall EnsureColRow(int Index, bool IsCol);
  537.     void * __fastcall EnsureDataRow(int ARow);
  538.     
  539. protected:
  540.     DYNAMIC void __fastcall ColumnMoved(int FromIndex, int ToIndex);
  541.     virtual void __fastcall DrawCell(int ACol, int ARow, const Windows::TRect &ARect, TGridDrawState AState
  542.         );
  543.     DYNAMIC System::AnsiString __fastcall GetEditText(int ACol, int ARow);
  544.     DYNAMIC void __fastcall SetEditText(int ACol, int ARow, const System::AnsiString Value);
  545.     DYNAMIC void __fastcall RowMoved(int FromIndex, int ToIndex);
  546.     
  547. public:
  548.     __fastcall virtual TStringGrid(Classes::TComponent* AOwner);
  549.     __fastcall virtual ~TStringGrid(void);
  550.     __property System::AnsiString Cells[int ACol][int ARow] = {read=GetCells, write=SetCells};
  551.     __property Classes::TStrings* Cols[int Index] = {read=GetCols, write=SetCols};
  552.     __property System::TObject* Objects[int ACol][int ARow] = {read=GetObjects, write=SetObjects};
  553.     __property Classes::TStrings* Rows[int Index] = {read=GetRows, write=SetRows};
  554. public:
  555.     /* TWinControl.CreateParented */ __fastcall TStringGrid(HWND ParentWindow) : Grids::TDrawGrid(ParentWindow
  556.         ) { }
  557.     
  558. };
  559.  
  560. class PASCALIMPLEMENTATION TStringGridStrings : public Classes::TStrings 
  561. {
  562.     typedef Classes::TStrings inherited;
  563.     
  564. private:
  565.     TStringGrid* FGrid;
  566.     int FIndex;
  567.     void __fastcall CalcXY(int Index, int &X, int &Y);
  568.     
  569. protected:
  570.     virtual void __fastcall Clear(void);
  571.     virtual int __fastcall Add(const System::AnsiString S);
  572.     virtual System::AnsiString __fastcall Get(int Index);
  573.     virtual int __fastcall GetCount(void);
  574.     virtual System::TObject* __fastcall GetObject(int Index);
  575.     virtual void __fastcall Put(int Index, const System::AnsiString S);
  576.     virtual void __fastcall PutObject(int Index, System::TObject* AObject);
  577.     virtual void __fastcall SetUpdateState(bool Updating);
  578.     
  579. public:
  580.     __fastcall TStringGridStrings(TStringGrid* AGrid, int AIndex);
  581.     virtual void __fastcall Assign(Classes::TPersistent* Source);
  582.     virtual void __fastcall Delete(int Index);
  583.     virtual void __fastcall Insert(int Index, const System::AnsiString S);
  584. public:
  585.     /* TStrings.Destroy */ __fastcall virtual ~TStringGridStrings(void) { }
  586.     
  587. };
  588.  
  589. //-- var, const, procedure ---------------------------------------------------
  590. #define MaxCustomExtents (int)(134217727)
  591. #define MaxShortInt (Shortint)(127)
  592.  
  593. }    /* namespace Grids */
  594. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  595. using namespace Grids;
  596. #endif
  597. //-- end unit ----------------------------------------------------------------
  598. #endif    // Grids
  599.